% This is a function handle that gives the value function of expropration
% for the host country when cost of expropriation is high.

function output = Ve_h(z)

global   mean sigma beta Vaut nonoilgdp oilprod muh expon;

output =((1/expon)*(nonoilgdp +oilprod*z).^expon - muh + beta*Vaut).*lognpdf(z,mean,sigma);